﻿
Public Class ServicioBE

    Dim iCodigoServicio As Integer

    Dim iCodigoSolicitud As Integer
    Dim strNombreServicio As String
    Dim strUnidad As String
    Dim iCodTipoServicio As Integer
    Dim strTipoServicio As String

    Dim icodPais As Integer
    Dim iCodCiudad As Integer
    Dim strdesPais As String
    Dim strdesCiudad As String
    Dim iCodProveedores As Integer
    Dim iCodTipoTarifa As Integer
    Dim strDesTipoTarifa As String
    Dim dTarifa As Double

    Dim strUsuario As String

    ' Busqueda
    Dim fInicio As String
    Dim fFin As String
    Dim fCreacion As String
    Dim strEstado As String
    Dim strProveedor As String
    Dim strCiudad As String
    Dim strPais As String

    'Opcion Modificar 
    Dim iCodTarifaServProv As Integer
    Dim strDesSolServicio As String
    Dim strProveedorSol As String
    Dim strEstadoTarServProv As String

    Dim iContador As Integer

    'Estado 
    Dim strFlag As String


    Public Sub New()

    End Sub

    Public Sub New(ByVal Codigo As Integer)
        iCodigoServicio = Codigo
    End Sub

    Public Property Contador() As Integer
        Get
            Return iContador
        End Get
        Set(ByVal value As Integer)
            iContador = value
        End Set
    End Property


    Public Property CodServicio() As Integer
        Get
            Return iCodigoServicio
        End Get
        Set(ByVal value As Integer)
            iCodigoServicio = value
        End Set
    End Property

    Public Property CodSolicitudServicio() As Integer
        Get
            Return iCodigoSolicitud
        End Get
        Set(ByVal value As Integer)
            iCodigoSolicitud = value
        End Set
    End Property

    Public Property NombreServicio() As String
        Get
            Return strNombreServicio
        End Get
        Set(ByVal value As String)
            strNombreServicio = value
        End Set
    End Property

    Public Property Unidad() As String
        Get
            Return strUnidad
        End Get
        Set(ByVal value As String)
            strUnidad = value
        End Set
    End Property

    Public Property CodTipoServicio() As Integer
        Get
            Return iCodTipoServicio
        End Get
        Set(ByVal value As Integer)
            iCodTipoServicio = value
        End Set
    End Property

    Public Property TipoServicio() As String
        Get
            Return strTipoServicio
        End Get
        Set(ByVal value As String)
            strTipoServicio = value
        End Set
    End Property

    Public Property codPais() As Integer
        Get
            Return icodPais
        End Get
        Set(ByVal value As Integer)
            icodPais = value
        End Set
    End Property

    Public Property codCiudad() As Integer
        Get
            Return iCodCiudad
        End Get
        Set(ByVal value As Integer)
            iCodCiudad = value
        End Set
    End Property


    Public Property descripcionPais() As String
        Get
            Return strdesPais
        End Get
        Set(ByVal value As String)
            strdesPais = value
        End Set
    End Property

    Public Property descripcionCiudad() As String
        Get
            Return strdesCiudad
        End Get
        Set(ByVal value As String)
            strdesCiudad = value
        End Set
    End Property

    Public Property CodProveedor() As Integer
        Get
            Return iCodProveedores
        End Get
        Set(ByVal value As Integer)
            iCodProveedores = value
        End Set
    End Property

    Public Property codTipoTarifa() As Integer
        Get
            Return iCodTipoTarifa
        End Get
        Set(ByVal value As Integer)
            iCodTipoTarifa = value
        End Set
    End Property

    Public Property DescTipoTarifa() As String
        Get

            Return strDesTipoTarifa
        End Get
        Set(ByVal value As String)
            strDesTipoTarifa = value
        End Set
    End Property

    Public Property Tarifa() As Double
        Get
            Return dTarifa
        End Get
        Set(ByVal value As Double)
            dTarifa = value
        End Set
    End Property

    Public Property UsuarioCreador() As String
        Get
            Return strUsuario
        End Get
        Set(ByVal value As String)
            strUsuario = value
        End Set
    End Property

    Public Property FechaInicio() As String
        Get
            Return fInicio
        End Get
        Set(ByVal value As String)
            fInicio = value
        End Set
    End Property

    Public Property FechaFin() As String
        Get
            Return fFin
        End Get
        Set(ByVal value As String)
            fFin = value
        End Set
    End Property

    Public Property Estado() As String
        Get
            Return strEstado
        End Get
        Set(ByVal value As String)
            strEstado = value
        End Set
    End Property

    Public Property FechaCreacion() As String
        Get
            Return fCreacion
        End Get
        Set(ByVal value As String)
            fCreacion = value
        End Set
    End Property

    Public Property DesProveedor() As String
        Get
            Return strProveedor
        End Get
        Set(ByVal value As String)
            strProveedor = value
        End Set
    End Property

    Public Property DesCiudad() As String
        Get
            Return strCiudad
        End Get
        Set(ByVal value As String)
            strCiudad = value
        End Set
    End Property

    Public Property DesPais() As String
        Get
            Return strPais
        End Get
        Set(ByVal value As String)
            strPais = value
        End Set
    End Property

    Public Property NombreSolicitudServicio() As String
        Get
            Return strDesSolServicio
        End Get
        Set(ByVal value As String)
            strDesSolServicio = value
        End Set
    End Property

    Public Property ProveedorSolicitud() As String
        Get
            Return strProveedorSol
        End Get
        Set(ByVal value As String)
            strProveedorSol = value
        End Set
    End Property

    Public Property Flag() As String
        Get
            Return strFlag
        End Get
        Set(ByVal value As String)
            strFlag = value
        End Set
    End Property

    Public Property CodTarifaServProv() As Integer
        Get
            Return iCodTarifaServProv
        End Get
        Set(ByVal value As Integer)
            iCodTarifaServProv = value
        End Set
    End Property


    Public Property EstadoTarServProv() As String
        Get
            Return strEstadoTarServProv
        End Get
        Set(ByVal value As String)
            strEstadoTarServProv = value
        End Set
    End Property


End Class
